aan-2(5-05 p3:02P 



P.Ol 



Regular Correspondence: 
195 North Harbor Drive. Suite 5403. Chicago Illinois 60601-7540 




Docketed Correspondence: 
Post Office Box 7131 , Chicago Illinois 60680-7131 



Telephone; (312) 240-0824 Facsimife: (312) 240^825 



E^ail: pktJawC^email.msn.com 




RECEIVED 
CENTRAL FAX CENTER 

JAN 2 6 2005 



To: 



Examiner Patrice Winder 



Re: 09/399,578 IDS and Cited Art 



Firm: United States Patent and Trademark Office 



Date /Time: January 26, 2005 



SteMt Address; 



Phone: (571)272-3935 



City, State Zip: Washington. D.C.^ 20231 



Fax: {703)872-9306 



cc: 



No. of Pages: 22 (including cover) 



PRIVACY AND CONFIDE NTIALnY NOTICE 



The Infomnation contained in this communication is confidentiat and may be legally privileged, it is intended solely for the use of the individual or 
entity to whom it Is addressed and other authorized to receive it. If you are not the intended recipient, you are hereby notified that any disdosure, 
copying, distribution or taking of any action in reliance on the contents of this information is strictly prohibited, if you received this communication 
in enor, please immediately notify us by a collect telephone call to the writer at the writer's direct number indicated above, and return the original 
message and documents to the sender at the above address via the United States postal service. 



PAGE 1/11 * RCVD AT 1/26/2006 6:02:39 PM CEastem Standard Time] * SVR:USPTO^FXRF-1/0 * DNIS:8729306 * CSID: * DURATION (mm-ss): 06-02 



Message: 




r 



£O-«0:(ss-iuui) NOtlVUna « :aiS3 « g0C6Zi8:siNa . 0/l-:ftJXda-OldSn:dAS . pJBPuejS uia^SBa] vttd 6G:Z0:9 COOZ/dZ/L IV QAOU » ilfZ 39Vd 



# 



ksfo-client.txt 

# I /us r/1 ocal /bi n/pe rl 

# webChat(tfn) client v 0.2 

# copyright (c) 1995 Internet Roundtable Society 

# Programmed by Michael Fremont » email: webchat@irsociety.com 

This program is free software; you can redistribute it and/or modify 

# it under the terms of the GNU General Public License as published by 

# the Free software Foundation; either version 2 of the License, or 

# (at your option) any later version. 

# This program is distributed in the hope that it will be useful. 

# but WITHOUT ANY WARRANTY; without even the implied warranty of 

# MERCHANTABILITY Or FITNESS FOR A PARTICULAR PURPOSE. See the 

# GNU General Public License for more details. 

# YOU should have received a copy of the GNU General Public License 

# along with this program; if not, write to the Free Software 

# Foundation, inc. , 675 Mass Ave, Cambridge, ma 02139, USA, 



# this script is executed when a user submits the "chat" form. 

#LITERALS 

# 

$L0CK_SH = 1; 
$L0CK_EX = 2; 
$L0CK_NB = 4; 
$L0CK_UN = 8; 

$TRUE = 1; 

Sfalse = 0; 

#GL0BALS 
# 

Sclient = "http:/cgi-bin/nph-client#anchorl" ; 

# the following line is for the www-irsociety.com system 

#$talkfile = "/home/webchat/transcripts/ksfo" ; 

# the following line is for the webchat . servi ce. digital system 
#$talkfile 

"/usr/local/httpd/htdocs/webchat/transcripts/ksfo"; 
Stalkfile 

"/home/1 anshark/www/pages/webchat/transcri pts/ksf o" ; 

$point_gif = , 

"nttp;//www. cybertoday. com/cybertoday/webchat/point .gif ; 

$webchat_logo 

"http://www.ccnet.com/laporte/images/ksfologo-gif ; 

Sabout_local_server = "http://www.cybertoday.com/ ; 

Slocal_tz - "PDT C-0700 GMT)"; 

$read„block_size =512; 

$num_context_paras = 0; 

$num_context_paras_when_starting =10; _ 

$para_mark_size - 7; #7 digits (space padded) 

$back_jump = 10; 

$way_backl.when = 40; 



# get the form 
&ReadParse; 
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ksfo-client.txt 
$last_read_para = $in{l ast_read_para} ; 
$wants_dates_printecl = $i n{wants_dates_printed} ; 
$back_para = $in{back_para} ; 

# we've changed to letting you specify how far back you want to scroll 

# we're leaving the old code in case we go back 
ifC$in{Back} > 0) 

back = STRUE; 
$back_para = $back_para - $back_jump; 
C$back_para < 1) && C$back„para = 1; ; 

# $1ast_read_para = $back_para; 
$last_read_para = $la5t_rGad_para - $in{Back}; 
C$la5t_read_para < 1) && C$last_read_para = 1); 
} 



#!!! for debugging 
#if ($1 n{lnputText} eq 

# { 

# Sin{handle} = "Michael Fremont"; 

# $in{lnputText} = "hello, world!"; 

# } 

# open a (properly initialized) transcript file 

# later: if need to die, put text in some log file somewhere 
open (TRANSCRIPT, "+<$talkfile") || die "Client 

can't open transcript file"; 

# If the user input any text, add it to transcript file 
($in{inputText} ne "" && $back eq "") && &add_to_transcript ; 

# Update the output area or send error message if nothing new 
&output_new_f orm ; 

exit; 



sub output_new_form 

# if there is new output for this user, send it to him. otherwise return 

# "no new info" error message to his browser so it keeps his current state 



local ($buf, $tbuf, Slast oara, Sfound, $amount_to_read) ; 

local ($para_num, Sdate, Snandle. SheadURL, SheadURLsize, Stext) ; 



# look for first context paragraph that is to be output to user 

# note - it may not be in transcript file anymore, if the file was pruned 

# but for this version, assume pruning has not yet been implemented 

$f i rst_context_para = $last_read_para - $num_context_paras; 
($f i rst_context_para < 1) ($f i rst_context_para = 1); 
Sffi rst_context_para = 
"\0" . 

pack("ASpara_mark_size" , $fi rst_context_para) . 

# read a block from the end of the file and look for the context para. 
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ksfo-dient.txt 

# If not found, read more from the file until it is found 

$first_read = Strue; 
seek(TRANSCRIPT, 0, 2); #move to EOF 

# loop until found context para or at beginning of file 

# (BOF determined by finding para 0 mark at beginning of buf) 
while ( KSfound = $buf /$f fi rst_context_para/)) 

$amount_to_read = $read_block_size; 
$curr_loc = tell (TRANSCRIPT) ; 

C$curr_loc 0) && last; # read to beginning of file already 

($curr_loc < $read_block_si2e) && ($amount_to_read = $curr_loc): 
seekCTRANSCRiPT, -$amount_to_read, 1); 
readCTRANSCRXPT» Stbuf , $amount__to_read) ; 
if ($fi rst.read == $TRUE) 

# if no new data, exit loop 

# check by looking for same para# at end of file as before 
Sfirst^read = $false; 

$last_para= 

pack("A$para_mark_size*\ $last_rGad_para+i;) ; 

$next_para_num = 

substr($tbuf . lengthCStbuf)-$para_mark_size'l) ; 

# commented out so we ALWAYS return data - otherwise 

# NETSCAPE can get confused in its caching. (I think) 

# ($next_para_num eq $last_para) 

# && last; 

# if the context para is way before $next_para_num. it's 

# because the user just got into chat, and the transcript 

# file is big. change context para so they only get 

# stuff near the end of file, and aren't overwhelmed. 

if (C$last«para It $next_para_num - $way_back„when) && !$back) 

$f i rst_context_para - $next_para_num - 
$num_context_paras_when_starti ng ; 

$f f i rst„context_para = 
"\0" . 

pack("A$para_mark_si ze" , $f i rst_context„para) , 
; 

} 

} 

# add new stuff to $buf 
Sbuf = Stbuf , $buf ; 

# move back to before the data we just read 
seekCTRANSCRiPT, -$amount_to_read, 1); 

# send "no data" status if: 

# * no new data, or 

# * there's no data at all in the file 
if(!$found) 

#! ! the next line must change based on which ver. of HTTP req. came in 
print "HTTP/1.0 204 NO RESPONSE\n"; 
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ksfo'dient .txt 



print "Server: webchat client via CERN/3.0\n"; 
print '*Content-Type: text/html \n\n" ; 



exi t; 
} 

print "HTTP/1.0 200 OK\n" ; 

print "Server: Webchat dnent via CERN/3.0\n"; 
print "content-Type: text/html \n\n" ; 

&output_fo rni_header ; 

#print context 

# break the buffer into separate paragraphs 

# paragraph 0 has file-global info, and is not a real para so don't output it 

# NOTE: this will could result in a lot of elements if we read a lot of 

# the file 

©paras = split(/\000/, $buf ) ; 

# output each paragraph 
for($a=l; $a<$#paras; $a++) 

&print_para($a) ; 
} 

print "<FORM ACTiON=\"$client\" METHOD=\"POST\">\n" ; 
$last„read_para = $next_para_num -1; 

&output_hidden„fieldC"last_read_para", "$1a5t_read_para ); 

C$back eq && ($back_para = $last_read_para) : 
&output_hidden_fieldC"back_para", "$back_para") ; 

&outpu t_f o rm_t rai 1 e r ; 
} 

sub print_para 

# prints the indicated paragraph to the user 

C$out_para) = @_; 

$anchor_para = $last_read_para; 
C$anchor_para < 1) && ($anchor_para - 1); 

($para_num, Sdate, Shandle, SheadURL, $headURLsi ze, $text) = 
spl i t CAOOl/ . Sparas [$out_para] ) ; 

# put the anchor one paragraph in front of new stuff 
if CSpara_num — Sancnor_para) 

^rint "<A NAME=\"anchorl\"></A>" ; 

if($para_num $last„read_para+l) 

^rint "<IMG ALIGN=bottom SRC=\*'$point_gif\"><BR>\n" ; 
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ksfo-c1ient.txt 
(SheadURL =~ /http:\/\/\w/) && print SheadURL; 



# the BR CLEAR=1eft causes our version of Air Mosaic to really puke, but 

# without it we can't wrap the text to the right of the images, which really 

# saves screen space and looks a lot better. So we'll leave it in until 

# we get lots of complaints from users. 

# print "Shandle:", "<BR>\n$text<BR><P>\n" ; 

print "Shandle: .... Sdate", "<BR>\n$text<BR CLEAR=left><P>\n" ; 



sub output_form_header 

# prints the header portion of the talk form (everything up to the chat section) 
{ 

print "<HTML>\n" , 
"<HEAD>\n", 

"<ti tle>webchat</title>\n'* , 

"</HEAD>\n", 
"<BODY>\n'\ 

"<IMG ALlGN=bottom SRC=\"$webchat_logo\"><HR>\n"; } 



#FORM FOLLOWS (mostly) 

sub output_form_trailer 

#prints the trailer portion of the talk form (everything after the chat section) 
{ 

pri nt 

"<BR><INPUT TYPE=\"submi t\" NAME=\"chat\" VALUE=\"chat\"> Get/Send message 

\n". 

" . . scroll Back \n<lNPUT TYPE=\'*text\" size = \"5\" NAME=:\"8ack\"> 
messages'* , 

"<TEXTAREA NAME=\"lnputText\" R0WS=3 COLS=70></TEXTAREA><P>\n", 

"Your Handle: <INPUT NAME=\"handle\" VALUE=^\*'$infhandle}\"><p>\n" , 
"Your picture URL: <INPUT TYPE=\"text\" SIZE = \'^50\" NAME=\"pi cture\"" , 
"value^\"$i n{pi cture}\"><P>\n" , 

# "Your room: <SELECT NAME=\"room\">\n" , 

# "<OPTION>Room l\n", 

# "<OPTlON>Room 2\n'\ 

# "<OPTlON>Room 3\n", 

# "<OPTION>Room 4\n", 

# "<OPTiON>Room 5\n", 

# "<OPTlON>Room 6\n", 

# "</SELECT><P>\n" , 
"</FORM>" , 

"Click here for <A 
HREF=\"http : //www . i rsoci ety . com/webchat/hel p . html \*'>Hel p</A> . " , 

# "click here for a <a 

HREF=\"http : //www. i rsoci ety . com/webchat/t ranscri pt . html \">Transcri pt . </A>\n" , 

# "click here for <A 

HREF=\"http : //www . i rsoci ety . com/webchat/opti ons , html \">Opti ons</A> " , 

"-Go to the <A HREF=^ 
\"http : //www. i rsoci ety . com/webchat/webchat . html \">webchat Home Page</A>\n" , 

"*About this <A HREF:== \" $about_l ocal _server\">Se rver</A>\n" , 

# "<FORM>", 

# "<INPUT TYPE=\"submit\" NAME=\"exit\" VALUE=\"Goodbye\">", 

# "</FORM>", 
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"</BODY>". 
"</HTML>"; 



sub ini t_transcript_fi1e 

# makes a new transcript file with the given name, and initializes it as 

# follows: 
# 

# a dummy paragraph, numbered 0, that looks like this: 

# 0 \1 

# possibly some global file info here, not yet defined 

# \0 

# 1 \1 
# 

# the first real paragraph in a transcript file is numbered 1 

# paragraphs have the following format: 

# (all entries are \1 terminated, except the null paragraph terminator) 
# 

# paragraph number C7 digits, space padded) 

# date 

# handle 

# head uRL 

# head url size 

# text 

# null paragraph terminator 

# paragraph numbers are fixed in size so we can improve efficiency. 

# The end of a transcript file always has the next paragraph number so we 

# can very quickly see if there is any new text. By having it be a fixed 

# size field we know exactly where the beginning of it is, 

# Records are null terminated so we can easily split the file into 

# paragraphs, and fields are terminated with \1 so we can split a record. 

{ 

} 

sub output_hidden_field 

# outputs an html formatted hidden field to stdout 

# input parameters are: 

# name, value 

{ 

local CSname, Svalue); 
(Sname, lvalue) = @_; 

print "<INPUT TYPE=\"hidden\" NAME=\"$name\" VALUE=\"$value\">\n" ; 



sub add_to_t ran script 

# the user has submitted text to add to the conversation 

# add it, as appropriate, to the transcript 

# now we're ready to write it, get file lock 
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ksfo-client.txt , 
flockCTRANSCRIPT, $LOCK_EX) I # wai ts here unti 1 gets exclusive lock 

# analyze input for links like http: and gopher: 
&analyze_input; 

# the next paragraph number is already at the end of the file; get it 

# stored as a nGll. then $para_fnark_si2e digits string, space padded, then \1 
seekCTRANSCRlPT, -($para_niark_si2e+l), 2); 

read (TRANSCRIPT. $next_para_num. $parajnark.size+l; ; /.^^v /^.r^-i^^ 

#re-seek to end of file for OS systems that need interspersed read/seek/write 

priSt^TRANsS^ Sdate, Shandle. SheadURL. SheadURLsi ze, 

$input_text), "\1\0", packC"A$para_jnark_size" , ■t-+$next_para_num) , \1 , 

# done with writing, unlock file 

flock (TRANSCRIPT, $LOCK_UN) ; 
} 

sub analyze_input 

# looks at the text input from the user; any hyperlink references found 

# (such as http: and gopher:) are converted to HTML so they become live 

# when sent back to a user. NOT YET IMPLEMENTED, 

# also constructs header information such as date of input, handle, etc. 

# get the date and time * . ^- ^ ^ -, n • 
local ($sec, Smin, $hour. Smday , $mon, Syear , Swday. Syday. Sisdat) = localtime; 
local ($am_pm, Spicture); 

$am_pm = "AM"; 
if (Shour > 12) 

$hour = Shour -12; 
Sam_pm= "PM"; 

(Smin < 10) && (Smin = '0' . Smin); , 

local (@day of week) = ("sun". "Mon" , "Tue", "wed", "Thu". "Fn" Sat"); 
local (@month)> Cyan") ^Feb". "Mar", "Apr", "May". "Jun". "Dul". "Aug". "Sep" 

$date'= "Sday.of^weekCSwdayl , $month[Smon] Smday, Shour : Smin $am_pm Slocal^tz"; 

# get the user's handle 
Shandle = Sin{handle}; 

# convert user's head URL to html form 
Spicture = $in{picture} ; 

# if the machine has a domain name, make it inline 

if (Spicture m! (http://[a-2] [\-~a-zO-9/\.]+\.Qif\w*) 1 0 

(SheadURL = "<IMG ALIGN=left hspace-10 SRC=\"" . Spicture . "\">\n"); 
} 

# otherwise, just point to it as a hotlink n 
elsif (Spicture m! (http://C\— a-zO-9/\.]A.gTf\w*) !i) 

(SheadURL = "<A HREF=\"$picture\">picture</a><br>\n") ; 
} 

#get the size of the user's picture 
#not yet implemented 
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ksfo-client.txt 

$headURLsi2e=l; 

# look for hyperlinks in inputted text and convert them to html 

# not yet ful ly implemented 
$input_text = Si n{inputText} ; 

# look for HTML markup language in the input. If they get it wrong, it will 

# cause many browsers to die, so for now, we disallow it. 

# Brain-dead, temporary solution: if we find pairs of <> brackets, replace 

# them with the words 'less than' and "greater than' and put out an 

# 'advisory' message. 

# We do tliis rather than trying to parse HTML now. Later we will. 

# side-effect: if the user really was using •<' and for something else 

# in the message... oops. 

$input_text s/<( [a<] *)>/\l/gi ; 

#this is such a hack that if anyone claims I did it I will deny it! 

# inline any .gifs referenced in user's text 

# first make tnem invisible to the next line 

Sinput_text slhttpC://[\-~a-zO-9^/\.]+\*gif\w*) I xxxx$l!gi ; 
Sinput^text 5!http(://[\-~a-zO-9»/\.]+\.!pg\w*)!xxxxSl!gi ; 

# make any other hypertext pointers live 

#known bug: matches http://www.irsociety,com. (includes the period in button) 
Sinput.text =^ s!Chttp://[A-a-20-9_/\.J+\A5+)!<A HREF=\"$l\'*><B>button</B></A> ! gi ; 
Sinput_text s (ftp://[^\-a-20-9_/\.]A.\s+)!<A HREF=V$l\"><B>button</B></A> ! g? ; 
Sinput_text slCmailto:[(a-a-zO-9_/\.]+\As-»-)l<A HREF=\"$l\"><B>button</B></A> ! gi i 

# now inline the .gifs and .jpgs 

# only display headURL if from a machine with a domain name, not iust 
a number. This is so the user's browser doesn't hang up "forever" 

# trying to reach a machine that is likely not to be a permanent 

# member of the Internet 

# for pics from machines with just an IP address, use a placeholder 

# image that is live and points to the real address. If the user 

# wants to see It, he can click on it. if the link is dead, it 

# won't look like webchat has failed. 

$input_text =^ s!xxxxC://[\-~a-zO-9_A.]+\.gif\w*)!<iMG SRC =\"http$l\"> ! gi ; 
HREF=\ httpSlX >picture</a><br>!gi ; 

$input,text s!xxxx(://[\-«a-z0-9_/\.]+\.jpg\w*) !<IMG SRC =\"http$l\"> I gi ; 
} 



# perl Routines to Manipulate CGI input 
^ s.E.srenner^bi Occam. ac.uk 

#17-17'*le^>100^^^ 1994/11/04 00: 

# 

# copyright 1994 Steven E. Brenner 

# Unpublished work. 

# Permission granted to use and modify this library so long as the 

# copyright above is maintained, modifications are documented, and 
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ksfo-c1ient.txt 

# credit is given for any use of the library. 
# 

# Thanks are due to many people for reporting bugs and suggestions 

# especially Meng weng Wong, Maki Watanabe, Bo Frese Rasmussen, 

# Andrew Dalke, Mark-jason Dominus and Dave Dittrich. 

# see http : //www. seas. upenn-cdu/^mengwong/forms/ or 

# http://www.bio.cam.ac.uk/web/ for more information 

# Minimalist http form and script (http://www.bio.cam.ac.uk/web/niinimal.cgi): 

# if C&MethGet) { k k y ^ 

# print APrintHeader , 

# '<form method=POST><input type="submi t">Data: <input name="myfield"> ' ; 

# } else { 

# &ReadParse(*i nput) ; 

# print &PrintHeader. &PrintVariables(%i nput) ; 

# } 

# MethGet 

# Return true if this cgi call was using the GET request, false otherwise 

# Now that cgi scripts can be put in the normal file space, it is useful 

# to combine both the form and the script in one place with GET used to 

# retrieve the form, and POST used to get the result. 

sub MethGet { 

^ return (Senv{ ' REQUEST_METHOD ' } eq "GET"); 

# ReadParse 

# Reads in get or post data, converts it to unescaped text, and puts 

# one key=value in each member of the list "@in" 

# Also creates key/value pairs in %in, using '\0' to separate multiple 

# selections 

# If a variable-glob parameter (e.g.. *cgi„input) is passed to ReadParse, 

# information is stored there, rather than in Sin, @in, and %in. 

sub ReadParse { 

local C*in) = @_ if 

local ($i. Sloe, Skey, Sval); 
# Read in text 

if CSenv£'request_method'} eq "get") { 

Sin = Senv{'QUERY_5Tring'}; 
} elsif CSenv{'request_method"} eq "post") { 
^ read CSTDIN .Sin, $ENV{ ' CONTElsrr_LENGTH ' }) ; 

©in = 5plitC/&/,Sin); 

foreach $i (0 . . $#in) { 

# Convert plus's to spaces 
SinCSil =^ s/W /g; 

# Split into key and value. 

(Skey Sval) = . spl i t (/-/, Si n[$i ] , 2) ; # splits on the first =. 

rl' }^^^ tlV^^ return empty values when user doesn't use; dump these 
CSvai eq ) && next; 

# Convert %xx from hex numbers to alphanumeric 
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ksfo-client.txt 
Skey =^ s/%C. 0/packC'c".hexC$l))/ge; 
Sval 5/%C. .)/packC'c",hex($l))/ge; 

# Associate key and value , . , 

$-in{$key} .= "\0" if (definedCSi n{$key})) ; # \0 is the multiple separator 

$in{$key} .= Sval ; 

} 

return 1; # just for fun 



# PrintHeader 

# Returns the magic line which tells www that we're an html document 

sub PrintHeader { 

return "Content-type: text/html \n\n" ; 



# Printvariables 

# Nicely formats variables in an associative array passed as a parameter 

# And returns the HTML string. 

sub Printvariables { 
local (%in) = @_; 
local (Sold, $out, Soutput); 
Sold = $-; $* =1; 

Soutput .= *'<DL COMPACT>"; 

foreach Skey (sort keys(%in)) { 
foreach Csplit("\0'\ $in{$key})) { 
($out = $_) s/\n/<BR>/g; 

Soutput . = "<DT><B>$key</B><DD><l>$out</l><BR>'' ; 



Soutput .= "</DL>"; 
S^ = Sold; 

return Soutput; 



# PrintvariablesShort 

# Nicely formats variables in an associative array passed as a parameter 

# using one line per pair (unless value is multiline) 

# And returns the HTML string. 



sub PrintvariablesShort { 
local (%in)' = @_; 
local (Sold, Sout, Soutput); 
Sold = S*; $* =1; 
foreach Skey (sort keys(%in)) { 
foreach (splitC'\0'\ $in{Skey>)) I 
foreach (split("\0'\ $in{$key})J t 
CSout = S_) s/\n/<BR>/g; 
Soutput .= •'<B>$key</B> is <I>$out</I><BR>" ; 

} 

$- = Sold; 
return Soutput; 



} 
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